'  ********************************************************
'  *         PROGRAM FOR COMPUTING MAIDENHEAD LOCATOR SQUARES         *
'  ********************************************************
'  *  This program is from "The ARRL World Grid Locator Atlas"                *
'  *  Copyright 1984 Folke Rosval, SM5AGM.  This atlas is Available         *
'  *  from ARRL HQ for $4.00 . This program entered and modified for the *             *
'  *  Macintosh by  Jim Bradbury, WB5ACL / DA2ND, December 1987         *
'  ********************************************************
        PRINT"This Program Calculates Maidenhead Locator Squares"
        PRINT "as found in 'The ARRL World Grid Locator Atlas.'"
        PRINT
        PRINT"For Western Longitude and Southern Latitude - Enter Neg Values."
        PRINT
        PRINT 
        PRINT "        Example Locations                            Lat         Long"
        PRINT "Worms, Germany (Taukkunen Bks)      = 49¡40'N   08¡21'E"
        PRINT "Mannheim, Germany (Taylor Bks)        = 49¡31'N   08¡33'E"
        PRINT "Mannheim, Germany (Hammond Bks)   = 49¡28'N   08¡33'E"
        PRINT 
 100 PRINT"(D)egrees, (M)inutes, (S)econds"
120 INPUT"Enter Latitude (D, M, S) "; LatD, LatM, LatS
        E=1e-06
        Lat = LatD + LatM/60 + LatS/3600 + E
        IF Lat<-90 OR Lat >= 90 THEN 120
122 INPUT"Enter Longitude (D, M, S) ";longD, LongM, LongS
        Long = longD + LongM/60 + LongS/3600 + E
        IF Long <-180 OR Long >=  180 THEN 122
 130 A = Long/20+9
        B = Lat/10+9
        C = INT(A)
        D = INT(B)
        A$ = CHR$(C+65) + CHR$(D+65)
 140 A = (A-C) * 10
        B = (B-D) * 10
        C = INT(A)
        D = INT(B)
 150 A$ = A$ + CHR$(C+48) + CHR$(D+48)
         A$ = A$ + CHR$(INT((A-C)*24)+65)+CHR$(INT((B-D)*24)+65)
160 PRINT 
        PRINT "For Latitude ";
        PRINT Lat"¡";
        IF Lat => 0 THEN PRINT "N;    ";
        IF Lat < 0 THEN PRINT  "S;     ";
        PRINT "Longitude "Long"¡";
        IF Long => 0 THEN PRINT "E"
        IF Long <0 THEN PRINT "W"
        PRINT "The Maidenhead Locator Square is  ";
        <0xac48fe,0x07>(12):<0x14,0x00>(0):<0x14,0x01>(0)
        PRINT A$
        <0xac4949,0x07>(12):<0x14,0x00>(0):<0x14,0x01>(9)
        PRINT
        GOTO 100